perm filename SW2[P11,LCS] blob sn#369160 filedate 1978-07-28 generic text, type T, neo UTF8
SRT←10000;
INS 0 1; <  INSTRUMENT 1
SET P5;
OSC P4 P3 B2 F2 P29;
OUT B2 B1;END; <  ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!  

GEN 0 1 2 ,-.999 0  .999 511;< SAW
GEN 0 1 3   .999 0  .999 255 ,-.999 256  ,-.999 511;< SQUARE
   <GEN TYPE 1, F2

INSTRUMENTS;
SIMP 1 6  FREQ 3 
END;
 
PLAY;
SIMP 0 .004 1000 2000 F2;
SIMP .004 .004 1000 1000 F3;FINI;